百二秦关终属楚

ggplot(d, aes(x, y)) + geom_point(size=.8) + scale_y_reverse() + xlab(NULL) + ylab(NULL) +
    geom_image(image="~/github/blog_images/biobabble.jpg", x=250, y=-575, size=.1, asp=1) +
    labs(title="高考决定了你在那里打农药", subtitle="加油加油！毕竟大大城市的网速更快") +
    labs(caption="学ggplot2画图\n请扫码关注公众号\nbiobabble") + 
    theme(plot.title=element_text(family="STHeiti"), plot.subtitle=element_text(family="STHeiti"),
        plot.caption=element_text(family="STHeiti", hjust=0)) + coord_equal(clip="off") 

儿童节快乐！一文引起了大家的兴趣，群众纷纷表示有代码还不够，希望能够给出数据，让大家可以重复出图，这次满足大家的愿望，后台回复「exam」给你可以重复出这个图的所有东西，包括数据和代码。